setwd("~/R_databases")

#install.packages("hyperSpec")
library(hyperSpec)
unzip("~/R_databases/data/raw/spc.zip", exdir = "~/R_databases/data")
fls <- list.files(path="./data/spc",pattern="*.spc")
for (i in fls){
  filepath = paste("./data/spc/",i,sep="")
  dat <- read.spc(filepath)
  cat("\n\n# ",i,"\n")
  plot(dat@wavelength,dat@data$spc,type="l",main=i,ylab="I",xlab="Wellenzahl [cm-1]")
}
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.
## 
## 
## #  acetoacetate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  acetylcoenzymeA.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  acetylglucosamine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  adenine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  alanine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  amylopectin.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  amylose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  arabinose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  arginine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  ascorbicacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  bcarotene.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  c12methyltetradecanoicacid_15Aiso.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  c13methylmyristicacid_15iso.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  c14methylhexadecanoicacid_17Aiso.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  c14methylpentadecanoicacid_16iso.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  c15methylpalmiticacid_17iso.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  cellulose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  chitin.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  citricacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  coenzymeA.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  cytosine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  dextrose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  Dfructose6phosphate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  fructose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  fucose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  fumarate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  galactosamine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  glucose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  glutamate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  glutathione.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  glycerol.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  glycine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  guanine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  histidine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  lactose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  lauricacid_12.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  malicaclid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  mannose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  myristicacid_14.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  oleicacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  palmiticacid_16.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  phenylalanine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  phosphoenolpyruvate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  proline.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  pyruvate.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  riboflavin.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  serine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  stearicacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  succinicacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  threhalose.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  thymine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  trilinolein.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  trilinolenin.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  triolein.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  tryptophan.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  tyrosine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  uracil.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  vaccenicacid.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  valine.spc
## spc file header: file type flag TORDRD encountered => Enforcing TMULTI.

## 
## 
## #  xylose.spc